home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aai.d64 / expand'ram.proc < prev    next >
Text File  |  2007-02-28  |  515b  |  24 lines
  1. 9000 //
  2. 9010 PROC EXPAND'RAM CLOSED
  3. 9020  IF PEEK(18728)<>183 THEN
  4. 9030   FOR ADDR:=45969 TO 45981 DO
  5. 9040    POKE ADDR+1024,PEEK(ADDR)
  6. 9050   ENDFOR ADDR
  7. 9060   POKE 4569,183
  8. 9070   POKE 15256,183
  9. 9080   POKE 17458,183
  10. 9090   POKE 18728,183
  11. 9100   POKE 21833,183
  12. 9110   POKE 24332,183
  13. 9120   POKE 24606,183
  14. 9130   POKE 26866,183
  15. 9140   POKE 28711,183
  16. 9150   POKE 28727,183
  17. 9160   POKE 29977,183
  18. 9170   POKE 34441,183
  19. 9180   POKE 751,2
  20. 9190   POKE 2066,144
  21. 9200   POKE 2067,183
  22. 9210  ENDIF 
  23. 9220 ENDPROC EXPAND'RAM
  24.